/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_06 / disk_op

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 24 | 2e 44 69 73 6b 45 64 0d |..... >$|.DiskEd.|
|00000010| 00 14 04 0d 00 1e 27 f4 | 20 2a 2a 2a 2a 2a 2a 2a |......'.| *******|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 00 28 27 f4 20 |********|**..('. |
|00000040| 2a 20 20 20 20 20 55 73 | 69 6e 67 20 53 57 49 20 |*     Us|ing SWI |
|00000050| 41 44 46 53 5f 44 69 73 | 63 4f 70 20 20 20 20 20 |ADFS_Dis|cOp     |
|00000060| 2a 0d 00 32 27 f4 20 2a | 20 57 72 69 74 74 65 6e |*..2'. *| Written|
|00000070| 20 62 79 20 41 64 72 69 | 61 6e 20 50 68 69 6c 69 | by Adri|an Phili|
|00000080| 70 20 4c 6f 6f 6b 20 2a | 0d 00 3c 27 f4 20 2a 20 |p Look *|..<'. * |
|00000090| 20 20 20 20 20 20 32 33 | 72 64 20 4a 61 6e 75 61 |      23|rd Janua|
|000000a0| 72 79 20 31 39 38 38 20 | 20 20 20 20 20 20 2a 0d |ry 1988 |      *.|
|000000b0| 00 46 27 f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.F'. ***|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000d0| 2a 2a 2a 2a 2a 2a 0d 00 | 50 04 0d 00 5a 0a eb 20 |******..|P...Z.. |
|000000e0| 31 32 3a 87 0d 00 64 0b | 2a 46 58 20 34 2c 32 0d |12:...d.|*FX 4,2.|
|000000f0| 00 6e 0f f2 69 6e 69 74 | 69 61 6c 69 73 65 0d 00 |.n..init|ialise..|
|00000100| 78 12 f2 73 65 74 5f 75 | 70 5f 73 63 72 65 65 6e |x..set_u|p_screen|
|00000110| 0d 00 82 04 0d 00 8c 0e | ee 20 85 20 f2 65 72 72 |........|. . .err|
|00000120| 6f 72 0d 00 96 0e 66 69 | 6e 69 73 68 65 64 3d a3 |or....fi|nished=.|
|00000130| 0d 00 a0 05 f5 0d 00 aa | 13 f2 69 6e 70 75 74 5f |........|..input_|
|00000140| 63 6f 6d 6d 61 6e 64 73 | 0d 00 b4 0e fd 20 66 69 |commands|..... fi|
|00000150| 6e 69 73 68 65 64 0d 00 | be 05 e0 0d 00 c8 04 0d |nished..|........|
|00000160| 00 d2 0b dd f2 65 72 72 | 6f 72 0d 00 dc 22 e7 20 |.....err|or...". |
|00000170| 9f 3c 3e 31 37 20 8c 20 | f1 20 f6 24 3b 22 20 61 |.<>17 . |. .$;" a|
|00000180| 74 20 6c 69 6e 65 20 22 | 3b 9e 3a e0 0d 00 e6 0e |t line "|;.:.....|
|00000190| 2a 50 4f 49 4e 54 45 52 | 20 31 0d 00 f0 0b 2a 46 |*POINTER| 1....*F|
|000001a0| 58 20 34 2c 32 0d 00 fa | 12 ef 20 32 38 2c 31 2c |X 4,2...|.. 28,1,|
|000001b0| 33 30 2c 37 38 2c 37 0d | 01 04 0b f1 8a 30 2c 30 |30,78,7.|.....0,0|
|000001c0| 29 3b 0d 01 0e 19 f2 64 | 69 73 70 6c 61 79 28 73 |);.....d|isplay(s|
|000001d0| 74 61 72 74 2c 6c 69 6e | 65 73 29 0d 01 18 08 ef |tart,lin|es).....|
|000001e0| 20 32 36 0d 01 22 05 e1 | 0d 01 2c 04 0d 01 36 10 | 26.."..|..,...6.|
|000001f0| dd f2 69 6e 69 74 69 61 | 6c 69 73 65 0d 01 40 12 |..initia|lise..@.|
|00000200| de 20 6d 65 6d 6f 72 79 | 25 20 31 30 32 34 0d 01 |. memory|% 1024..|
|00000210| 4a 04 0d 01 54 0f 64 69 | 72 65 63 74 69 6f 6e 3d |J...T.di|rection=|
|00000220| b9 0d 01 5e 1b 68 65 61 | 64 3d 30 3a 73 65 63 74 |...^.hea|d=0:sect|
|00000230| 6f 72 3d 30 3a 74 72 61 | 63 6b 3d 30 0d 01 68 15 |or=0:tra|ck=0..h.|
|00000240| 74 72 61 63 6b 73 3d 38 | 30 3a 68 65 61 64 73 3d |tracks=8|0:heads=|
|00000250| 32 0d 01 72 14 73 74 61 | 72 74 3d 30 3a 6c 69 6e |2..r.sta|rt=0:lin|
|00000260| 65 73 3d 32 33 0d 01 7c | 15 66 6f 75 6e 64 3d a3 |es=23..||.found=.|
|00000270| 3a 63 68 61 6e 67 65 64 | 3d a3 0d 01 86 05 e1 0d |:changed|=.......|
|00000280| 01 90 04 0d 01 9a 13 dd | f2 73 65 74 5f 75 70 5f |........|.set_up_|
|00000290| 73 63 72 65 65 6e 0d 01 | a4 2d ef 20 31 39 2c 30 |screen..|.-. 19,0|
|000002a0| 2c 32 34 2c 30 2c 30 2c | 32 35 35 7c 20 3a 20 f4 |,24,0,0,|255| : .|
|000002b0| 20 73 65 74 20 62 6f 72 | 64 65 72 20 74 6f 20 62 | set bor|der to b|
|000002c0| 6c 75 65 0d 01 ae 0b fb | 20 31 33 32 3a db 0d 01 |lue.....| 132:...|
|000002d0| b8 0d fb 20 31 33 35 3a | fb 20 34 0d 01 c2 09 f2 |... 135:|. 4.....|
|000002e0| 6d 65 6e 75 0d 01 cc 09 | f2 73 69 7a 65 0d 01 d6 |menu....|.size...|
|000002f0| 09 f2 6e 65 78 74 0d 01 | e0 0e 2a 70 6f 69 6e 74 |..next..|..*point|
|00000300| 65 72 20 31 0d 01 ea 05 | e1 0d 01 f4 04 0d 01 fe |er 1....|........|
|00000310| 0a dd f2 6d 65 6e 75 0d | 02 08 07 fb 20 31 0d 02 |...menu.|.... 1..|
|00000320| 12 48 f2 77 69 6e 64 6f | 77 28 31 38 2c 31 2c 34 |.H.windo|w(18,1,4|
|00000330| 36 2c 31 2c 34 2c 22 20 | 41 72 63 68 69 76 65 20 |6,1,4," |Archive |
|00000340| 44 69 73 63 20 55 74 69 | 6c 69 74 79 20 2d 20 62 |Disc Uti|lity - b|
|00000350| 79 20 41 64 72 69 61 6e | 20 50 68 69 6c 69 70 20 |y Adrian| Philip |
|00000360| 4c 6f 6f 6b 22 29 0d 02 | 1c 07 fb 20 30 0d 02 26 |Look")..|... 0..&|
|00000370| 20 f2 77 69 6e 64 6f 77 | 28 31 2c 33 2c 37 2c 31 | .window|(1,3,7,1|
|00000380| 2c 34 2c 22 46 6f 72 77 | 61 72 64 22 29 0d 02 30 |,4,"Forw|ard")..0|
|00000390| 22 f2 77 69 6e 64 6f 77 | 28 31 30 2c 33 2c 38 2c |".window|(10,3,8,|
|000003a0| 31 2c 34 2c 22 42 61 63 | 6b 77 61 72 64 22 29 0d |1,4,"Bac|kward").|
|000003b0| 02 3a 1f f2 77 69 6e 64 | 6f 77 28 32 31 2c 33 2c |.:..wind|ow(21,3,|
|000003c0| 35 2c 31 2c 34 2c 22 54 | 72 61 63 6b 22 29 0d 02 |5,1,4,"T|rack")..|
|000003d0| 44 1e f2 77 69 6e 64 6f | 77 28 32 38 2c 33 2c 34 |D..windo|w(28,3,4|
|000003e0| 2c 31 2c 34 2c 22 48 65 | 61 64 22 29 0d 02 4e 20 |,1,4,"He|ad")..N |
|000003f0| f2 77 69 6e 64 6f 77 28 | 33 34 2c 33 2c 36 2c 31 |.window(|34,3,6,1|
|00000400| 2c 34 2c 22 53 65 63 74 | 6f 72 22 29 0d 02 58 34 |,4,"Sect|or")..X4|
|00000410| f2 77 69 6e 64 6f 77 28 | 34 33 2c 33 2c 32 35 2c |.window(|43,3,25,|
|00000420| 31 2c 34 2c 22 54 72 61 | 63 6b 3a 20 20 20 48 65 |1,4,"Tra|ck:   He|
|00000430| 61 64 3a 20 20 53 65 63 | 74 6f 72 3a 20 20 22 29 |ad:  Sec|tor:  ")|
|00000440| 0d 02 62 1b f2 77 69 6e | 64 6f 77 28 37 31 2c 33 |..b..win|dow(71,3|
|00000450| 2c 31 2c 31 2c 34 2c 22 | 2a 22 29 0d 02 6c 1f f2 |,1,1,4,"|*")..l..|
|00000460| 77 69 6e 64 6f 77 28 37 | 34 2c 33 2c 35 2c 31 2c |window(7|4,3,5,1,|
|00000470| 34 2c 22 4c 65 61 76 65 | 22 29 0d 02 76 1b f2 77 |4,"Leave|")..v..w|
|00000480| 69 6e 64 6f 77 28 31 2c | 35 2c 37 38 2c 32 36 2c |indow(1,|5,78,26,|
|00000490| 34 2c 22 22 29 0d 02 80 | 07 fb 20 31 0d 02 8a 12 |4,"")...|.. 1....|
|000004a0| f1 8a 34 2c 35 29 3b 22 | 41 64 64 72 3a 22 0d 02 |..4,5);"|Addr:"..|
|000004b0| 94 1a f1 8a 32 34 2c 35 | 29 3b 22 48 65 78 61 64 |....24,5|);"Hexad|
|000004c0| 65 63 69 6d 61 6c 3a 22 | 0d 02 9e 14 f1 8a 36 36 |ecimal:"|......66|
|000004d0| 2c 35 29 3b 22 41 53 43 | 49 49 3a 22 0d 02 a8 0b |,5);"ASC|II:"....|
|000004e0| f2 75 70 64 61 74 65 0d | 02 b2 05 e1 0d 02 bc 04 |.update.|........|
|000004f0| 0d 02 c6 0c dd f2 75 70 | 64 61 74 65 0d 02 d0 07 |......up|date....|
|00000500| fb 20 30 0d 02 da 15 f1 | 8a 34 39 2c 33 29 3b 74 |. 0.....|.49,3);t|
|00000510| 72 61 63 6b 3b 22 20 22 | 0d 02 e4 10 f1 8a 35 37 |rack;" "|......57|
|00000520| 2c 33 29 3b 68 65 61 64 | 0d 02 ee 1e f1 8a 36 36 |,3);head|......66|
|00000530| 2c 33 29 3b 22 20 20 22 | 3b 8a 36 36 2c 33 29 3b |,3);"  "|;.66,3);|
|00000540| 73 65 63 74 6f 72 0d 02 | f8 0d fb 20 31 32 38 3a |sector..|... 128:|
|00000550| fb 20 37 0d 03 02 11 e7 | 20 64 69 72 65 63 74 69 |. 7.....| directi|
|00000560| 6f 6e 20 8c 0d 03 0c 14 | f1 8a 31 2c 33 29 3b 22 |on .....|..1,3);"|
|00000570| 46 6f 72 77 61 72 64 22 | 0d 03 16 05 cc 0d 03 20 |Forward"|....... |
|00000580| 16 f1 8a 31 30 2c 33 29 | 3b 22 42 61 63 6b 77 61 |...10,3)|;"Backwa|
|00000590| 72 64 22 0d 03 2a 05 cd | 0d 03 34 0d fb 20 31 33 |rd"..*..|..4.. 13|
|000005a0| 35 3a fb 20 30 0d 03 3e | 13 e7 20 ac 20 64 69 72 |5:. 0..>|.. . dir|
|000005b0| 65 63 74 69 6f 6e 20 8c | 0d 03 48 14 f1 8a 31 2c |ection .|..H...1,|
|000005c0| 33 29 3b 22 46 6f 72 77 | 61 72 64 22 0d 03 52 05 |3);"Forw|ard"..R.|
|000005d0| cc 0d 03 5c 16 f1 8a 31 | 30 2c 33 29 3b 22 42 61 |...\...1|0,3);"Ba|
|000005e0| 63 6b 77 61 72 64 22 0d | 03 66 05 cd 0d 03 70 20 |ckward".|.f....p |
|000005f0| e7 20 64 69 72 65 63 74 | 69 6f 6e 20 8c 20 64 69 |. direct|ion . di|
|00000600| 72 3d 31 20 8b 20 64 69 | 72 3d 2d 31 0d 03 7a 05 |r=1 . di|r=-1..z.|
|00000610| e1 0d 03 84 04 0d 03 8e | 21 dd f2 77 69 6e 64 6f |........|!..windo|
|00000620| 77 28 78 2c 79 2c 73 78 | 2c 73 79 2c 64 2c 73 74 |w(x,y,sx|,sy,d,st|
|00000630| 72 69 6e 67 24 29 0d 03 | 98 1b 78 3d 78 2a 31 36 |ring$)..|..x=x*16|
|00000640| 3a 79 3d 31 30 32 34 2d | 28 79 2b 73 79 29 2a 33 |:y=1024-|(y+sy)*3|
|00000650| 32 0d 03 a2 15 73 78 3d | 73 78 2a 31 36 3a 73 79 |2....sx=|sx*16:sy|
|00000660| 3d 73 79 2a 33 32 0d 03 | ac 09 e6 20 30 2c 37 0d |=sy*32..|... 0,7.|
|00000670| 03 b6 23 c8 93 20 c8 90 | 20 78 2d 33 2a 64 2c 79 |..#.. ..| x-3*d,y|
|00000680| 2d 33 2a 64 2c 73 78 2b | 36 2a 64 2c 73 79 2b 36 |-3*d,sx+|6*d,sy+6|
|00000690| 2a 64 0d 03 c0 09 e6 20 | 30 2c 30 0d 03 ca 23 c8 |*d..... |0,0...#.|
|000006a0| 93 20 c8 90 20 78 2d 32 | 2a 64 2c 79 2d 32 2a 64 |. .. x-2|*d,y-2*d|
|000006b0| 2c 73 78 2b 34 2a 64 2c | 73 79 2b 34 2a 64 0d 03 |,sx+4*d,|sy+4*d..|
|000006c0| d4 09 e6 20 30 2c 37 0d | 03 de 1f c8 93 20 c8 90 |... 0,7.|..... ..|
|000006d0| 20 78 2d 64 2c 79 2d 64 | 2c 73 78 2b 32 2a 64 2c | x-d,y-d|,sx+2*d,|
|000006e0| 73 79 2b 32 2a 64 0d 03 | e8 22 f1 8a 78 2f 31 36 |sy+2*d..|."..x/16|
|000006f0| 2c 28 31 30 32 34 2d 79 | 29 2f 33 32 2d 31 29 3b |,(1024-y|)/32-1);|
|00000700| 73 74 72 69 6e 67 24 3b | 0d 03 f2 05 e1 0d 03 fc |string$;|........|
|00000710| 04 0d 04 06 14 dd f2 69 | 6e 70 75 74 5f 63 6f 6d |.......i|nput_com|
|00000720| 6d 61 6e 64 73 0d 04 10 | 05 f5 0d 04 1a 12 c8 97 |mands...|........|
|00000730| 20 78 2c 79 2c 62 75 74 | 74 6f 6e 73 0d 04 24 1b | x,y,but|tons..$.|
|00000740| fd 20 62 75 74 74 6f 6e | 73 3c 3e 30 20 80 20 b0 |. button|s<>0 . .|
|00000750| 78 2c 79 29 3c 3e 34 0d | 04 2e 16 64 78 3d 78 2f |x,y)<>4.|...dx=x/|
|00000760| 31 36 3a 64 79 3d 33 32 | 2d 79 2f 33 32 0d 04 38 |16:dy=32|-y/32..8|
|00000770| 18 e7 20 64 79 3c 32 20 | 80 20 62 75 74 74 6f 6e |.. dy<2 |. button|
|00000780| 73 3d 34 20 8c 0d 04 42 | 0f f2 69 6e 69 74 69 61 |s=4 ...B|..initia|
|00000790| 6c 69 73 65 0d 04 4c 12 | f2 73 65 74 5f 75 70 5f |lise..L.|.set_up_|
|000007a0| 73 63 72 65 65 6e 0d 04 | 56 05 cd 0d 04 60 14 e7 |screen..|V....`..|
|000007b0| 20 64 79 3e 37 20 80 20 | 64 79 3c 33 30 20 8c 0d | dy>7 . |dy<30 ..|
|000007c0| 04 6a 26 e7 20 64 78 3e | 34 20 80 20 64 78 3c 37 |.j&. dx>|4 . dx<7|
|000007d0| 20 80 20 62 75 74 74 6f | 6e 73 3c 3e 32 20 8c 20 | . butto|ns<>2 . |
|000007e0| f2 70 61 67 65 0d 04 74 | 15 e7 20 64 78 3e 31 34 |.page..t|.. dx>14|
|000007f0| 20 80 20 64 78 3c 37 36 | 20 8c 0d 04 7e 17 e7 20 | . dx<76| ...~.. |
|00000800| 62 75 74 74 6f 6e 73 3d | 32 20 8c 20 f2 6d 6f 76 |buttons=|2 . .mov|
|00000810| 65 0d 04 88 19 e7 20 62 | 75 74 74 6f 6e 73 3d 34 |e..... b|uttons=4|
|00000820| 20 8c 20 f2 63 68 61 6e | 67 65 0d 04 92 05 cd 0d | . .chan|ge......|
|00000830| 04 9c 05 cd 0d 04 a6 27 | e7 20 a8 28 64 79 29 3c |.......'|. .(dy)<|
|00000840| 3e 33 20 84 20 64 78 3e | 37 38 20 84 20 62 75 74 |>3 . dx>|78 . but|
|00000850| 74 6f 6e 73 3c 3e 34 20 | 8c 20 e1 0d 04 b0 0b 66 |tons<>4 |. .....f|
|00000860| 6f 75 6e 64 3d a3 0d 04 | ba 17 e7 20 64 78 3e 37 |ound=...|... dx>7|
|00000870| 32 2e 37 35 20 8c 20 f2 | 6c 65 61 76 65 0d 04 c4 |2.75 . .|leave...|
|00000880| 16 e7 20 64 78 3e 36 39 | 2e 37 35 20 8c 20 f2 73 |.. dx>69|.75 . .s|
|00000890| 74 61 72 0d 04 ce 17 e7 | 20 64 78 3e 34 31 2e 37 |tar.....| dx>41.7|
|000008a0| 35 20 8c 20 f2 69 6e 70 | 75 74 0d 04 d8 32 e7 20 |5 . .inp|ut...2. |
|000008b0| 64 78 3e 33 32 2e 37 35 | 20 80 20 ac 20 66 6f 75 |dx>32.75| . . fou|
|000008c0| 6e 64 20 8c 20 f2 73 61 | 76 65 3a 73 65 63 74 6f |nd . .sa|ve:secto|
|000008d0| 72 2b 3d 64 69 72 3a f2 | 6e 65 78 74 0d 04 e2 30 |r+=dir:.|next...0|
|000008e0| e7 20 64 78 3e 32 36 2e | 37 35 20 80 20 ac 20 66 |. dx>26.|75 . . f|
|000008f0| 6f 75 6e 64 20 8c 20 f2 | 73 61 76 65 3a 68 65 61 |ound . .|save:hea|
|00000900| 64 2b 3d 64 69 72 3a f2 | 6e 65 78 74 0d 04 ec 31 |d+=dir:.|next...1|
|00000910| e7 20 64 78 3e 31 39 2e | 37 35 20 80 20 ac 20 66 |. dx>19.|75 . . f|
|00000920| 6f 75 6e 64 20 8c 20 f2 | 73 61 76 65 3a 74 72 61 |ound . .|save:tra|
|00000930| 63 6b 2b 3d 64 69 72 3a | f2 6e 65 78 74 0d 04 f6 |ck+=dir:|.next...|
|00000940| 2d e7 20 64 78 3e 38 2e | 37 35 20 80 20 ac 20 66 |-. dx>8.|75 . . f|
|00000950| 6f 75 6e 64 20 8c 20 64 | 69 72 65 63 74 69 6f 6e |ound . d|irection|
|00000960| 3d a3 3a 66 6f 75 6e 64 | 3d b9 0d 05 00 24 e7 20 |=.:found|=....$. |
|00000970| 64 78 3e 2e 37 35 20 80 | 20 ac 20 66 6f 75 6e 64 |dx>.75 .| . found|
|00000980| 20 8c 20 64 69 72 65 63 | 74 69 6f 6e 3d b9 0d 05 | . direc|tion=...|
|00000990| 0a 13 f2 75 70 64 61 74 | 65 3a 66 6f 75 6e 64 3d |...updat|e:found=|
|000009a0| a3 0d 05 14 05 e1 0d 05 | 1e 04 0d 05 28 0c dd f2 |........|....(...|
|000009b0| 63 68 61 6e 67 65 0d 05 | 32 15 64 78 3d a8 28 64 |change..|2.dx=.(d|
|000009c0| 78 29 3a 64 79 3d a8 28 | 64 79 29 0d 05 3c 0d e7 |x):dy=.(|dy)..<..|
|000009d0| 20 64 78 3e 35 39 20 8c | 0d 05 46 09 f2 74 65 78 | dx>59 .|..F..tex|
|000009e0| 74 0d 05 50 05 cc 0d 05 | 5a 12 e7 20 64 78 3c 34 |t..P....|Z.. dx<4|
|000009f0| 36 20 8c 20 f2 68 65 78 | 0d 05 64 05 cd 0d 05 6e |6 . .hex|..d....n|
|00000a00| 05 e1 0d 05 78 04 0d 05 | 82 0a dd f2 74 65 78 74 |....x...|....text|
|00000a10| 0d 05 8c 0e 2a 70 6f 69 | 6e 74 65 72 20 30 0d 05 |....*poi|nter 0..|
|00000a20| 96 05 f5 0d 05 a0 1f 70 | 6f 73 3d 28 64 78 2d 36 |.......p|os=(dx-6|
|00000a30| 30 29 2b 28 64 79 2d 37 | 29 2a 31 36 2b 73 74 61 |0)+(dy-7|)*16+sta|
|00000a40| 72 74 0d 05 aa 33 64 61 | 74 61 3d 6d 65 6d 6f 72 |rt...3da|ta=memor|
|00000a50| 79 25 3f 70 6f 73 3a e7 | 20 64 61 74 61 3c 33 32 |y%?pos:.| data<32|
|00000a60| 20 84 20 64 61 74 61 3d | 31 32 37 20 8c 20 64 61 | . data=|127 . da|
|00000a70| 74 61 3d 34 36 0d 05 b4 | 11 64 61 74 61 24 3d bd |ta=46...|.data$=.|
|00000a80| 28 64 61 74 61 29 0d 05 | be 0d fb 20 31 33 32 3a |(data)..|... 132:|
|00000a90| fb 20 37 0d 05 c8 13 f1 | 8a 64 78 2c 64 79 29 3b |. 7.....|.dx,dy);|
|00000aa0| 64 61 74 61 24 3b 0d 05 | d2 05 f5 0d 05 dc 19 62 |data$;..|.......b|
|00000ab0| 3d a6 28 30 29 3a c8 97 | 20 78 2c 79 2c 62 75 74 |=.(0):..| x,y,but|
|00000ac0| 74 6f 6e 73 0d 05 e6 17 | fd 20 62 3c 3e 2d 31 20 |tons....|. b<>-1 |
|00000ad0| 84 20 62 75 74 74 6f 6e | 73 3d 31 0d 05 f0 0d e7 |. button|s=1.....|
|00000ae0| 20 62 3c 3e 2d 31 20 8c | 0d 05 fa 19 e7 20 62 3c | b<>-1 .|..... b<|
|00000af0| 3e 64 61 74 61 20 8c 20 | 63 68 61 6e 67 65 64 3d |>data . |changed=|
|00000b00| b9 0d 06 04 11 6d 65 6d | 6f 72 79 25 3f 70 6f 73 |.....mem|ory%?pos|
|00000b10| 3d 62 0d 06 0e 29 f1 8a | 31 2c 64 79 29 3b 3a f2 |=b...)..|1,dy);:.|
|00000b20| 64 69 73 70 6c 61 79 28 | 73 74 61 72 74 2b 64 79 |display(|start+dy|
|00000b30| 2a 26 31 30 2d 26 37 30 | 2c 31 29 0d 06 18 1f 64 |*&10-&70|,1)....d|
|00000b40| 78 2b 3d 31 3a e7 20 64 | 78 3e 37 35 20 8c 20 64 |x+=1:. d|x>75 . d|
|00000b50| 78 3d 36 30 3a 64 79 2b | 3d 31 0d 06 22 05 cd 0d |x=60:dy+|=1.."...|
|00000b60| 06 2c 2d fd 20 64 79 3d | 33 30 20 84 20 62 75 74 |.,-. dy=|30 . but|
|00000b70| 74 6f 6e 73 3d 31 20 84 | 20 28 64 79 3d 32 33 20 |tons=1 .| (dy=23 |
|00000b80| 80 20 73 69 7a 65 3d 26 | 41 30 30 29 0d 06 36 37 |. size=&|A00)..67|
|00000b90| e7 20 62 75 74 74 6f 6e | 73 3d 31 20 8c 20 f1 8a |. button|s=1 . ..|
|00000ba0| 31 2c 64 79 29 3b 3a f2 | 64 69 73 70 6c 61 79 28 |1,dy);:.|display(|
|00000bb0| 73 74 61 72 74 2b 64 79 | 2a 26 31 30 2d 26 37 30 |start+dy|*&10-&70|
|00000bc0| 2c 31 29 0d 06 40 0e 2a | 50 4f 49 4e 54 45 52 20 |,1)..@.*|POINTER |
|00000bd0| 31 0d 06 4a 05 e1 0d 06 | 54 04 0d 06 5e 09 dd f2 |1..J....|T...^...|
|00000be0| 68 65 78 0d 06 68 0e 2a | 70 6f 69 6e 74 65 72 20 |hex..h.*|pointer |
|00000bf0| 30 0d 06 72 05 f5 0d 06 | 7c 21 70 6f 73 3d 28 64 |0..r....||!pos=(d|
|00000c00| 78 2d 31 34 29 2f 32 2b | 28 64 79 2d 37 29 2a 31 |x-14)/2+|(dy-7)*1|
|00000c10| 36 2b 73 74 61 72 74 0d | 06 86 14 64 61 74 61 3d |6+start.|...data=|
|00000c20| 6d 65 6d 6f 72 79 25 3f | 70 6f 73 0d 06 90 33 e7 |memory%?|pos...3.|
|00000c30| 20 70 6f 73 3d a8 28 70 | 6f 73 29 20 8c 20 64 61 | pos=.(p|os) . da|
|00000c40| 74 61 3d 64 61 74 61 20 | 81 20 26 31 30 20 8b 20 |ta=data |. &10 . |
|00000c50| 64 61 74 61 3d 64 61 74 | 61 20 80 20 26 46 0d 06 |data=dat|a . &F..|
|00000c60| 9a 12 64 61 74 61 24 3d | c3 7e 28 64 61 74 61 29 |..data$=|.~(data)|
|00000c70| 0d 06 a4 0d fb 20 31 33 | 32 3a fb 20 37 0d 06 ae |..... 13|2:. 7...|
|00000c80| 13 f1 8a 64 78 2c 64 79 | 29 3b 64 61 74 61 24 3b |...dx,dy|);data$;|
|00000c90| 0d 06 b8 05 f5 0d 06 c2 | 19 62 3d a6 28 30 29 3a |........|.b=.(0):|
|00000ca0| c8 97 20 78 2c 79 2c 62 | 75 74 74 6f 6e 73 0d 06 |.. x,y,b|uttons..|
|00000cb0| cc 2f fd 20 28 62 3e 36 | 34 20 80 20 62 3c 37 31 |./. (b>6|4 . b<71|
|00000cc0| 29 20 84 20 28 62 3e 34 | 37 20 80 20 62 3c 35 38 |) . (b>4|7 . b<58|
|00000cd0| 29 20 84 20 62 75 74 74 | 6f 6e 73 3d 31 0d 06 d6 |) . butt|ons=1...|
|00000ce0| 12 e7 20 62 75 74 74 6f | 6e 73 3c 3e 31 20 8c 0d |.. butto|ns<>1 ..|
|00000cf0| 06 e0 19 e7 20 62 3c 3e | 64 61 74 61 20 8c 20 63 |.... b<>|data . c|
|00000d00| 68 61 6e 67 65 64 3d b9 | 0d 06 ea 12 e7 20 70 6f |hanged=.|..... po|
|00000d10| 73 3d a8 28 70 6f 73 29 | 20 8c 0d 06 f4 2b 64 61 |s=.(pos)| ....+da|
|00000d20| 74 61 3d 28 6d 65 6d 6f | 72 79 25 3f 70 6f 73 20 |ta=(memo|ry%?pos |
|00000d30| 80 20 26 46 29 2b a0 28 | 22 26 22 2b bd 28 62 29 |. &F)+.(|"&"+.(b)|
|00000d40| 29 2a 26 31 30 0d 06 fe | 05 cc 0d 07 08 28 64 61 |)*&10...|.....(da|
|00000d50| 74 61 3d 28 6d 65 6d 6f | 72 79 25 3f 70 6f 73 20 |ta=(memo|ry%?pos |
|00000d60| 80 20 26 46 30 29 2b a0 | 28 22 26 22 2b bd 28 62 |. &F0)+.|("&"+.(b|
|00000d70| 29 29 0d 07 12 05 cd 0d | 07 1c 14 6d 65 6d 6f 72 |))......|...memor|
|00000d80| 79 25 3f 70 6f 73 3d 64 | 61 74 61 0d 07 26 29 f1 |y%?pos=d|ata..&).|
|00000d90| 8a 31 2c 64 79 29 3b 3a | f2 64 69 73 70 6c 61 79 |.1,dy);:|.display|
|00000da0| 28 73 74 61 72 74 2b 64 | 79 2a 26 31 30 2d 26 37 |(start+d|y*&10-&7|
|00000db0| 30 2c 31 29 0d 07 30 1f | 64 78 2b 3d 31 3a e7 20 |0,1)..0.|dx+=1:. |
|00000dc0| 64 78 3e 34 35 20 8c 20 | 64 78 3d 31 34 3a 64 79 |dx>45 . |dx=14:dy|
|00000dd0| 2b 3d 31 0d 07 3a 05 cd | 0d 07 44 2d fd 20 64 79 |+=1..:..|..D-. dy|
|00000de0| 3d 33 30 20 84 20 62 75 | 74 74 6f 6e 73 3d 31 20 |=30 . bu|ttons=1 |
|00000df0| 84 20 28 64 79 3d 32 33 | 20 80 20 73 69 7a 65 3d |. (dy=23| . size=|
|00000e00| 26 41 30 30 29 0d 07 4e | 37 e7 20 62 75 74 74 6f |&A00)..N|7. butto|
|00000e10| 6e 73 3d 31 20 8c 20 f1 | 8a 31 2c 64 79 29 3b 3a |ns=1 . .|.1,dy);:|
|00000e20| f2 64 69 73 70 6c 61 79 | 28 73 74 61 72 74 2b 64 |.display|(start+d|
|00000e30| 79 2a 26 31 30 2d 26 37 | 30 2c 31 29 0d 07 58 0e |y*&10-&7|0,1)..X.|
|00000e40| 2a 50 4f 49 4e 54 45 52 | 20 31 0d 07 62 05 e1 0d |*POINTER| 1..b...|
|00000e50| 07 6c 04 0d 07 76 0a dd | f2 6d 6f 76 65 0d 07 80 |.l...v..|.move...|
|00000e60| 13 e7 20 73 69 7a 65 3d | 26 41 30 30 20 8c 20 e1 |.. size=|&A00 . .|
|00000e70| 0d 07 8a 12 ef 20 32 38 | 2c 31 2c 32 39 2c 37 38 |..... 28|,1,29,78|
|00000e80| 2c 37 0d 07 94 17 64 79 | 3d 33 32 2d 79 20 81 20 |,7....dy|=32-y . |
|00000e90| 33 32 3a 64 79 31 3d 64 | 79 0d 07 9e 2f c8 95 20 |32:dy1=d|y.../.. |
|00000ea0| 64 79 3e 37 20 80 20 64 | 79 3c 33 30 20 80 20 64 |dy>7 . d|y<30 . d|
|00000eb0| 78 3e 31 34 20 80 20 64 | 78 3c 37 36 20 80 20 62 |x>14 . d|x<76 . b|
|00000ec0| 75 74 74 6f 6e 73 3d 32 | 0d 07 a8 0f 64 3d 2d 28 |uttons=2|....d=-(|
|00000ed0| 64 79 3c 64 79 31 29 0d | 07 b2 38 e7 20 64 79 3c |dy<dy1).|..8. dy<|
|00000ee0| 3e 64 79 31 20 80 20 28 | 28 64 3d 30 20 80 20 73 |>dy1 . (|(d=0 . s|
|00000ef0| 74 61 72 74 3e 30 29 20 | 84 20 28 64 3d 31 20 80 |tart>0) |. (d=1 .|
|00000f00| 20 73 74 61 72 74 3c 26 | 32 39 30 29 29 20 8c 0d | start<&|290)) ..|
|00000f10| 07 bc 10 f2 73 63 72 6f | 6c 6c 28 64 2c 31 29 0d |....scro|ll(d,1).|
|00000f20| 07 c6 12 64 79 31 2b 3d | b4 28 64 79 2d 64 79 31 |...dy1+=|.(dy-dy1|
|00000f30| 29 0d 07 d0 05 cd 0d 07 | da 12 c8 97 20 78 2c 79 |).......|.... x,y|
|00000f40| 2c 62 75 74 74 6f 6e 73 | 0d 07 e4 1a 64 78 3d 78 |,buttons|....dx=x|
|00000f50| 20 81 20 31 36 3a 64 79 | 3d 33 32 2d 79 20 81 20 | . 16:dy|=32-y . |
|00000f60| 33 32 0d 07 ee 05 ce 0d | 07 f8 08 ef 20 32 36 0d |32......|.... 26.|
|00000f70| 08 02 05 e1 0d 08 0c 04 | 0d 08 16 0a dd f2 70 61 |........|......pa|
|00000f80| 67 65 0d 08 20 13 e7 20 | 73 69 7a 65 3d 26 41 30 |ge.. .. |size=&A0|
|00000f90| 30 20 8c 20 e1 0d 08 2a | 21 e7 20 62 75 74 74 6f |0 . ...*|!. butto|
|00000fa0| 6e 73 3c 3e 31 20 80 20 | 62 75 74 74 6f 6e 73 3c |ns<>1 . |buttons<|
|00000fb0| 3e 34 20 8c 20 e1 0d 08 | 34 12 64 3d b4 28 62 75 |>4 . ...|4.d=.(bu|
|00000fc0| 74 74 6f 6e 73 2d 31 29 | 0d 08 3e 12 ef 20 32 38 |ttons-1)|..>.. 28|
|00000fd0| 2c 31 2c 32 39 2c 37 38 | 2c 37 0d 08 48 1c 6c 65 |,1,29,78|,7..H.le|
|00000fe0| 6e 3d 94 28 64 2a 26 32 | 39 30 2d 73 74 61 72 74 |n=.(d*&2|90-start|
|00000ff0| 29 20 81 20 31 36 0d 08 | 52 15 e7 20 6c 65 6e 3e |) . 16..|R.. len>|
|00001000| 31 36 20 8c 20 6c 65 6e | 3d 31 36 0d 08 5c 1d e7 |16 . len|=16..\..|
|00001010| 20 6c 65 6e 3c 3e 30 20 | 8c 20 f2 73 63 72 6f 6c | len<>0 |. .scrol|
|00001020| 6c 28 64 2c 6c 65 6e 29 | 0d 08 66 07 ef 32 36 0d |l(d,len)|..f..26.|
|00001030| 08 70 05 f5 0d 08 7a 12 | c8 97 20 78 2c 79 2c 62 |.p....z.|.. x,y,b|
|00001040| 75 74 74 6f 6e 73 0d 08 | 84 0f fd 20 62 75 74 74 |uttons..|... butt|
|00001050| 6f 6e 73 3d 30 0d 08 8e | 05 e1 0d 08 98 04 0d 08 |ons=0...|........|
|00001060| a2 13 dd f2 73 63 72 6f | 6c 6c 28 64 2c 6e 75 6d |....scro|ll(d,num|
|00001070| 29 0d 08 ac 14 77 68 65 | 72 65 3d 64 2a 28 32 33 |)....whe|re=d*(23|
|00001080| 2d 6e 75 6d 29 0d 08 b6 | 0f f1 8a 30 2c 77 68 65 |-num)...|...0,whe|
|00001090| 72 65 29 3b 0d 08 c0 0a | 74 65 6d 70 3d 30 0d 08 |re);....|temp=0..|
|000010a0| ca 05 f5 0d 08 d4 13 ef | 20 32 33 2c 37 2c 30 2c |........| 23,7,0,|
|000010b0| 64 2b 32 2c 30 7c 0d 08 | de 0b 74 65 6d 70 2b 3d |d+2,0|..|..temp+=|
|000010c0| 31 0d 08 e8 0e fd 20 74 | 65 6d 70 3d 6e 75 6d 0d |1..... t|emp=num.|
|000010d0| 08 f2 1a e7 20 64 3d 30 | 20 8c 20 73 74 61 72 74 |.... d=0| . start|
|000010e0| 2d 3d 26 31 30 2a 6e 75 | 6d 0d 08 fc 1e f2 64 69 |-=&10*nu|m.....di|
|000010f0| 73 70 6c 61 79 28 73 74 | 61 72 74 2b 64 2a 26 31 |splay(st|art+d*&1|
|00001100| 37 30 2c 6e 75 6d 29 0d | 09 06 1a e7 20 64 3d 31 |70,num).|.... d=1|
|00001110| 20 8c 20 73 74 61 72 74 | 2b 3d 26 31 30 2a 6e 75 | . start|+=&10*nu|
|00001120| 6d 0d 09 10 05 e1 0d 09 | 1a 04 0d 09 24 0b dd f2 |m.......|....$...|
|00001130| 6c 65 61 76 65 0d 09 2e | 19 e7 20 66 6f 75 6e 64 |leave...|.. found|
|00001140| 20 8c 20 e1 20 8b 20 66 | 6f 75 6e 64 3d b9 0d 09 | . . . f|ound=...|
|00001150| 38 09 f2 73 61 76 65 0d | 09 42 07 fb 20 34 0d 09 |8..save.|.B.. 4..|
|00001160| 4c 2e f1 8a 32 33 2c 36 | 29 3b 22 44 6f 20 79 6f |L...23,6|);"Do yo|
|00001170| 75 20 77 69 73 68 20 74 | 6f 20 6c 65 61 76 65 3f |u wish t|o leave?|
|00001180| 20 5b 59 5d 20 6f 72 20 | 5b 4e 5d 22 0d 09 56 0e | [Y] or |[N]"..V.|
|00001190| 73 65 6c 65 63 74 65 64 | 3d a3 0d 09 60 05 f5 0d |selected|=...`...|
|000011a0| 09 6a 12 c8 97 20 78 2c | 79 2c 62 75 74 74 6f 6e |.j... x,|y,button|
|000011b0| 73 0d 09 74 1a 64 78 3d | 78 20 81 20 31 36 3a 64 |s..t.dx=|x . 16:d|
|000011c0| 79 3d 33 31 2d 79 20 81 | 20 33 32 0d 09 7e 18 e7 |y=31-y .| 32..~..|
|000011d0| 20 62 75 74 74 6f 6e 73 | 3d 34 20 80 20 64 79 3d | buttons|=4 . dy=|
|000011e0| 36 20 8c 0d 09 88 20 e7 | 20 64 78 3d 34 36 20 84 |6 .... .| dx=46 .|
|000011f0| 20 64 78 3d 35 33 20 8c | 20 73 65 6c 65 63 74 65 | dx=53 .| selecte|
|00001200| 64 3d b9 0d 09 92 05 cd | 0d 09 9c 0e fd 20 73 65 |d=......|..... se|
|00001210| 6c 65 63 74 65 64 0d 09 | a6 12 f1 8a 32 33 2c 36 |lected..|....23,6|
|00001220| 29 3b 89 28 34 30 29 3b | 0d 09 b0 1d e7 20 64 78 |);.(40);|..... dx|
|00001230| 3d 34 36 20 8c 20 eb 30 | 3a ff 28 22 46 58 34 2c |=46 . .0|:.("FX4,|
|00001240| 30 22 29 3a e0 0d 09 ba | 05 e1 0d 09 c4 04 0d 09 |0"):....|........|
|00001250| ce 0a dd f2 73 74 61 72 | 0d 09 d8 19 e7 20 66 6f |....star|..... fo|
|00001260| 75 6e 64 20 8c 20 e1 20 | 8b 20 66 6f 75 6e 64 3d |und . . |. found=|
|00001270| b9 0d 09 e2 0a 2a 46 58 | 20 31 35 0d 09 ec 0b 2a |.....*FX| 15....*|
|00001280| 46 58 20 34 2c 30 0d 09 | f6 15 ef 20 32 38 2c 32 |FX 4,0..|... 28,2|
|00001290| 2c 32 39 2c 37 37 2c 37 | 2c 31 32 0d 0a 00 0d fb |,29,77,7|,12.....|
|000012a0| 20 31 33 35 3a fb 20 30 | 0d 0a 0a 07 db 3a ee 0d | 135:. 0|.....:..|
|000012b0| 0a 14 07 ea 20 85 0d 0a | 1e 0e ee 20 85 20 ea 20 |.... ...|... . . |
|000012c0| f1 27 f6 24 0d 0a 28 05 | f5 0d 0a 32 0e e8 22 2a |.'.$..(.|...2.."*|
|000012d0| 22 6f 73 63 6c 69 24 0d | 0a 3c 0d ff 28 6f 73 63 |"oscli$.|.<..(osc|
|000012e0| 6c 69 24 29 0d 0a 46 0f | fd 20 6f 73 63 6c 69 24 |li$)..F.|. oscli$|
|000012f0| 3d 22 22 0d 0a 50 07 db | 3a 87 0d 0a 5a 15 ef 20 |=""..P..|:...Z.. |
|00001300| 32 38 2c 31 2c 33 30 2c | 37 38 2c 37 2c 31 32 0d |28,1,30,|78,7,12.|
|00001310| 0a 64 19 f2 64 69 73 70 | 6c 61 79 28 73 74 61 72 |.d..disp|lay(star|
|00001320| 74 2c 6c 69 6e 65 73 29 | 0d 0a 6e 08 ef 20 32 36 |t,lines)|..n.. 26|
|00001330| 0d 0a 78 0b 2a 46 58 20 | 34 2c 32 0d 0a 82 05 e1 |..x.*FX |4,2.....|
|00001340| 0d 0a 8c 04 0d 0a 96 0b | dd f2 69 6e 70 75 74 0d |........|..input.|
|00001350| 0a a0 19 e7 20 66 6f 75 | 6e 64 20 8c 20 e1 20 8b |.... fou|nd . . .|
|00001360| 20 66 6f 75 6e 64 3d b9 | 0d 0a a1 0f 6f 6c 64 5f | found=.|....old_|
|00001370| 74 3d 74 72 61 63 6b 0d | 0a a2 0e 6f 6c 64 5f 68 |t=track.|...old_h|
|00001380| 3d 68 65 61 64 0d 0a a3 | 10 6f 6c 64 5f 73 3d 73 |=head...|.old_s=s|
|00001390| 65 63 74 6f 72 0d 0a aa | 07 fb 20 34 0d 0a b4 23 |ector...|.. 4...#|
|000013a0| f1 8a 34 39 2c 33 29 3b | 22 20 20 22 3b 8a 34 39 |..49,3);|"  ";.49|
|000013b0| 2c 33 29 3b 3a f2 67 65 | 74 28 32 2c 38 30 29 0d |,3);:.ge|t(2,80).|
|000013c0| 0a be 1a e7 20 61 24 3c | 3e 22 22 20 8c 20 74 72 |.... a$<|>"" . tr|
|000013d0| 61 63 6b 3d bb 28 61 24 | 29 0d 0a c8 0f f2 75 70 |ack=.(a$|).....up|
|000013e0| 64 61 74 65 3a fb 20 34 | 0d 0a d2 25 f1 8a 35 37 |date:. 4|...%..57|
|000013f0| 2c 33 29 3b 22 20 22 3b | 8a 35 37 2c 33 29 3b 3a |,3);" ";|.57,3);:|
|00001400| f2 67 65 74 28 31 2c 68 | 65 61 64 73 29 0d 0a dc |.get(1,h|eads)...|
|00001410| 19 e7 20 61 24 3c 3e 22 | 22 20 8c 20 68 65 61 64 |.. a$<>"|" . head|
|00001420| 3d bb 28 61 24 29 0d 0a | e6 0f f2 75 70 64 61 74 |=.(a$)..|...updat|
|00001430| 65 3a fb 20 34 0d 0a f0 | 32 f1 8a 36 36 2c 33 29 |e:. 4...|2..66,3)|
|00001440| 3b 22 20 20 22 3b 8a 36 | 36 2c 33 29 3b 3a f2 67 |;"  ";.6|6,3);:.g|
|00001450| 65 74 28 32 2c 73 65 63 | 74 6f 72 73 5f 70 65 72 |et(2,sec|tors_per|
|00001460| 5f 74 72 61 63 6b 29 0d | 0a fa 1b e7 20 61 24 3c |_track).|.... a$<|
|00001470| 3e 22 22 20 8c 20 73 65 | 63 74 6f 72 3d bb 28 61 |>"" . se|ctor=.(a|
|00001480| 24 29 0d 0b 04 0f f2 75 | 70 64 61 74 65 3a fb 20 |$).....u|pdate:. |
|00001490| 34 0d 0b 05 12 c8 94 20 | 6f 6c 64 5f 74 2c 74 72 |4...... |old_t,tr|
|000014a0| 61 63 6b 0d 0b 06 11 c8 | 94 20 6f 6c 64 5f 68 2c |ack.....|. old_h,|
|000014b0| 68 65 61 64 0d 0b 08 13 | c8 94 20 6f 6c 64 5f 73 |head....|.. old_s|
|000014c0| 2c 73 65 63 74 6f 72 0d | 0b 0e 11 66 6f 75 6e 64 |,sector.|...found|
|000014d0| 3d a3 3a f2 73 61 76 65 | 0d 0b 0f 12 c8 94 20 6f |=.:.save|...... o|
|000014e0| 6c 64 5f 74 2c 74 72 61 | 63 6b 0d 0b 10 11 c8 94 |ld_t,tra|ck......|
|000014f0| 20 6f 6c 64 5f 68 2c 68 | 65 61 64 0d 0b 11 13 c8 | old_h,h|ead.....|
|00001500| 94 20 6f 6c 64 5f 73 2c | 73 65 63 74 6f 72 0d 0b |. old_s,|sector..|
|00001510| 12 09 f2 6e 65 78 74 0d | 0b 18 05 e1 0d 0b 22 04 |...next.|......".|
|00001520| 0d 0b 2c 14 dd f2 67 65 | 74 28 6c 65 6e 2c 6c 69 |..,...ge|t(len,li|
|00001530| 6d 69 74 29 0d 0b 36 09 | 61 24 3d 22 22 0d 0b 40 |mit)..6.|a$=""..@|
|00001540| 05 f5 0d 0b 4a 10 62 24 | 3d be 3a 62 3d 97 28 62 |....J.b$|=.:b=.(b|
|00001550| 24 29 0d 0b 54 2d e7 20 | 62 3d 31 32 37 20 80 20 |$)..T-. |b=127 . |
|00001560| a9 28 61 24 29 3c 3e 30 | 20 8c 20 61 24 3d c0 61 |.(a$)<>0| . a$=.a|
|00001570| 24 2c a9 28 61 24 29 2d | 31 29 3a ef 31 32 37 0d |$,.(a$)-|1):.127.|
|00001580| 0b 5e 32 e7 20 62 24 3e | 3d 22 30 22 20 80 20 62 |.^2. b$>|="0" . b|
|00001590| 24 3c 3d 22 39 22 20 80 | 20 a9 28 61 24 29 3c 3e |$<="9" .| .(a$)<>|
|000015a0| 6c 65 6e 20 8c 20 61 24 | 2b 3d 62 24 3a f1 62 24 |len . a$|+=b$:.b$|
|000015b0| 3b 0d 0b 68 0a fd 20 62 | 3d 31 33 0d 0b 72 1a e7 |;..h.. b|=13..r..|
|000015c0| 20 bb 28 61 24 29 3e 3d | 6c 69 6d 69 74 20 8c 20 | .(a$)>=|limit . |
|000015d0| 61 24 3d 22 22 0d 0b 7c | 05 e1 0d 0b 86 04 0d 0b |a$=""..||........|
|000015e0| 90 0a dd f2 73 61 76 65 | 0d 0b 9a 0f e7 20 63 68 |....save|..... ch|
|000015f0| 61 6e 67 65 64 20 8c 0d | 0b a4 07 fb 20 34 0d 0b |anged ..|.... 4..|
|00001600| ae 35 f1 8a 31 38 2c 36 | 29 3b 22 44 6f 20 79 6f |.5..18,6|);"Do yo|
|00001610| 75 20 77 69 73 68 20 74 | 6f 20 73 61 76 65 20 63 |u wish t|o save c|
|00001620| 68 61 6e 67 65 73 3f 20 | 5b 59 5d 20 6f 72 20 5b |hanges? |[Y] or [|
|00001630| 4e 5d 22 0d 0b b8 0e 73 | 65 6c 65 63 74 65 64 3d |N]"....s|elected=|
|00001640| a3 0d 0b c2 05 f5 0d 0b | cc 12 c8 97 20 78 2c 79 |........|.... x,y|
|00001650| 2c 62 75 74 74 6f 6e 73 | 0d 0b d6 1a 64 78 3d 78 |,buttons|....dx=x|
|00001660| 20 81 20 31 36 3a 64 79 | 3d 33 31 2d 79 20 81 20 | . 16:dy|=31-y . |
|00001670| 33 32 0d 0b e0 18 e7 20 | 62 75 74 74 6f 6e 73 3d |32..... |buttons=|
|00001680| 34 20 80 20 64 79 3d 36 | 20 8c 0d 0b ea 20 e7 20 |4 . dy=6| .... . |
|00001690| 64 78 3d 34 38 20 84 20 | 64 78 3d 35 35 20 8c 20 |dx=48 . |dx=55 . |
|000016a0| 73 65 6c 65 63 74 65 64 | 3d b9 0d 0b f4 05 cd 0d |selected|=.......|
|000016b0| 0b fe 0e fd 20 73 65 6c | 65 63 74 65 64 0d 0c 08 |.... sel|ected...|
|000016c0| 12 f1 8a 31 38 2c 36 29 | 3b 89 28 34 30 29 3b 0d |...18,6)|;.(40);.|
|000016d0| 0c 12 35 e7 20 64 78 3d | 34 38 20 8c 20 f2 64 69 |..5. dx=|48 . .di|
|000016e0| 73 63 5f 6f 70 28 32 2c | 68 65 61 64 2c 73 65 63 |sc_op(2,|head,sec|
|000016f0| 74 6f 72 2c 74 72 61 63 | 6b 29 3a 63 68 61 6e 67 |tor,trac|k):chang|
|00001700| 65 64 3d a3 0d 0c 1c 05 | cd 0d 0c 26 05 e1 0d 0c |ed=.....|...&....|
|00001710| 30 04 0d 0c 3a 0a dd f2 | 6e 65 78 74 0d 0c 44 19 |0...:...|next..D.|
|00001720| e7 20 66 6f 75 6e 64 20 | 8c 20 e1 20 8b 20 66 6f |. found |. . . fo|
|00001730| 75 6e 64 3d b9 0d 0c 4e | 0c 2a 46 58 20 31 34 2c |und=...N|.*FX 14,|
|00001740| 36 0d 0c 58 33 e7 20 73 | 65 63 74 6f 72 3d 73 65 |6..X3. s|ector=se|
|00001750| 63 74 6f 72 73 5f 70 65 | 72 5f 74 72 61 63 6b 20 |ctors_pe|r_track |
|00001760| 8c 20 73 65 63 74 6f 72 | 3d 30 3a 68 65 61 64 2b |. sector|=0:head+|
|00001770| 3d 64 69 72 0d 0c 62 35 | e7 20 73 65 63 74 6f 72 |=dir..b5|. sector|
|00001780| 3c 30 20 8c 20 73 65 63 | 74 6f 72 3d 73 65 63 74 |<0 . sec|tor=sect|
|00001790| 6f 72 73 5f 70 65 72 5f | 74 72 61 63 6b 2d 31 3a |ors_per_|track-1:|
|000017a0| 68 65 61 64 2b 3d 64 69 | 72 0d 0c 6c 24 e7 20 68 |head+=di|r..l$. h|
|000017b0| 65 61 64 3d 68 65 61 64 | 73 20 8c 20 68 65 61 64 |ead=head|s . head|
|000017c0| 3d 30 3a 74 72 61 63 6b | 2b 3d 64 69 72 0d 0c 76 |=0:track|+=dir..v|
|000017d0| 26 e7 20 68 65 61 64 3c | 30 20 8c 20 68 65 61 64 |&. head<|0 . head|
|000017e0| 3d 68 65 61 64 73 2d 31 | 3a 74 72 61 63 6b 2b 3d |=heads-1|:track+=|
|000017f0| 64 69 72 0d 0c 80 1c e7 | 20 74 72 61 63 6b 3d 74 |dir.....| track=t|
|00001800| 72 61 63 6b 73 20 8c 20 | 74 72 61 63 6b 3d 30 0d |racks . |track=0.|
|00001810| 0c 8a 18 e7 20 74 72 61 | 63 6b 3c 30 20 8c 20 74 |.... tra|ck<0 . t|
|00001820| 72 61 63 6b 3d 37 39 0d | 0c 94 2b f2 64 69 73 63 |rack=79.|..+.disc|
|00001830| 5f 6f 70 28 31 2c 68 65 | 61 64 2c 73 65 63 74 6f |_op(1,he|ad,secto|
|00001840| 72 2c 74 72 61 63 6b 29 | 3a 63 68 61 6e 67 65 64 |r,track)|:changed|
|00001850| 3d a3 0d 0c 9e 15 ef 20 | 32 38 2c 31 2c 33 30 2c |=...... |28,1,30,|
|00001860| 37 38 2c 37 2c 31 32 0d | 0c a8 19 f2 64 69 73 70 |78,7,12.|....disp|
|00001870| 6c 61 79 28 73 74 61 72 | 74 2c 6c 69 6e 65 73 29 |lay(star|t,lines)|
|00001880| 0d 0c b2 08 ef 20 32 36 | 0d 0c bc 0c 2a 46 58 20 |..... 26|....*FX |
|00001890| 31 33 2c 36 0d 0c c6 05 | e1 0d 0c d0 04 0d 0c da |13,6....|........|
|000018a0| 25 dd a4 64 69 73 63 5f | 61 64 64 72 65 73 73 28 |%..disc_|address(|
|000018b0| 68 65 61 64 2c 73 65 63 | 74 6f 72 2c 74 72 61 63 |head,sec|tor,trac|
|000018c0| 6b 29 0d 0c e4 43 3d 28 | 28 74 72 61 63 6b 2a 68 |k)...C=(|(track*h|
|000018d0| 65 61 64 73 2b 68 65 61 | 64 29 2a 73 65 63 74 6f |eads+hea|d)*secto|
|000018e0| 72 73 5f 70 65 72 5f 74 | 72 61 63 6b 2b 73 65 63 |rs_per_t|rack+sec|
|000018f0| 74 6f 72 29 2a 62 79 74 | 65 73 5f 70 65 72 5f 73 |tor)*byt|es_per_s|
|00001900| 65 63 74 6f 72 0d 0c ee | 04 0d 0c f8 20 dd f2 68 |ector...|.... ..h|
|00001910| 65 61 64 5f 73 65 63 74 | 6f 72 5f 74 72 61 63 6b |ead_sect|or_track|
|00001920| 28 61 64 64 72 65 73 73 | 29 0d 0d 02 26 61 64 64 |(address|)...&add|
|00001930| 72 65 73 73 3d 61 64 64 | 72 65 73 73 20 81 20 62 |ress=add|ress . b|
|00001940| 79 74 65 73 5f 70 65 72 | 5f 73 65 63 74 6f 72 0d |ytes_per|_sector.|
|00001950| 0d 0c 26 73 65 63 74 6f | 72 3d 61 64 64 72 65 73 |..&secto|r=addres|
|00001960| 73 20 83 20 73 65 63 74 | 6f 72 73 5f 70 65 72 5f |s . sect|ors_per_|
|00001970| 74 72 61 63 6b 0d 0d 16 | 27 61 64 64 72 65 73 73 |track...|'address|
|00001980| 3d 61 64 64 72 65 73 73 | 20 81 20 73 65 63 74 6f |=address| . secto|
|00001990| 72 73 5f 70 65 72 5f 74 | 72 61 63 6b 0d 0d 20 18 |rs_per_t|rack.. .|
|000019a0| 68 65 61 64 3d 61 64 64 | 72 65 73 73 20 83 20 68 |head=add|ress . h|
|000019b0| 65 61 64 73 0d 0d 2a 19 | 74 72 61 63 6b 3d 61 64 |eads..*.|track=ad|
|000019c0| 64 72 65 73 73 20 81 20 | 68 65 61 64 73 0d 0d 34 |dress . |heads..4|
|000019d0| 05 e1 0d 0d 3e 04 0d 0d | 48 28 dd f2 64 69 73 63 |....>...|H(..disc|
|000019e0| 5f 6f 70 28 63 6f 6d 6d | 61 6e 64 2c 68 65 61 64 |_op(comm|and,head|
|000019f0| 2c 73 65 63 74 6f 72 2c | 74 72 61 63 6b 29 0d 0d |,sector,|track)..|
|00001a00| 52 0e 42 25 3d 63 6f 6d | 6d 61 6e 64 0d 0d 5c 27 |R.B%=com|mand..\'|
|00001a10| 43 25 3d a4 64 69 73 63 | 5f 61 64 64 72 65 73 73 |C%=.disc|_address|
|00001a20| 28 68 65 61 64 2c 73 65 | 63 74 6f 72 2c 74 72 61 |(head,se|ctor,tra|
|00001a30| 63 6b 29 0d 0d 66 0e 44 | 25 3d 6d 65 6d 6f 72 79 |ck)..f.D|%=memory|
|00001a40| 25 0d 0d 70 17 45 25 3d | 62 79 74 65 73 5f 70 65 |%..p.E%=|bytes_pe|
|00001a50| 72 5f 73 65 63 74 6f 72 | 0d 0d 7a 21 c8 99 20 22 |r_sector|..z!.. "|
|00001a60| 41 44 46 53 5f 44 69 73 | 63 4f 70 22 2c 2c 42 25 |ADFS_Dis|cOp",,B%|
|00001a70| 2c 43 25 2c 44 25 2c 45 | 25 0d 0d 84 05 e1 0d 0d |,C%,D%,E|%.......|
|00001a80| 8e 04 0d 0d 98 0a dd f2 | 73 69 7a 65 0d 0d a2 25 |........|size...%|
|00001a90| c8 99 20 22 41 44 46 53 | 5f 44 69 73 63 4f 70 22 |.. "ADFS|_DiscOp"|
|00001aa0| 2c 2c 31 2c 30 2c 6d 65 | 6d 6f 72 79 25 2c 32 35 |,,1,0,me|mory%,25|
|00001ab0| 36 0d 0d ac 1f 73 69 7a | 65 3d 21 28 6d 65 6d 6f |6....siz|e=!(memo|
|00001ac0| 72 79 25 2b 32 35 32 29 | 20 80 20 26 46 46 46 46 |ry%+252)| . &FFFF|
|00001ad0| 0d 0d b6 0d c8 8e 20 73 | 69 7a 65 20 ca 0d 0d c0 |...... s|ize ....|
|00001ae0| 0a c9 20 26 43 38 30 0d | 0d ca 19 62 79 74 65 73 |.. &C80.|...bytes|
|00001af0| 5f 70 65 72 5f 73 65 63 | 74 6f 72 3d 31 30 32 34 |_per_sec|tor=1024|
|00001b00| 0d 0d d4 17 73 65 63 74 | 6f 72 73 5f 70 65 72 5f |....sect|ors_per_|
|00001b10| 74 72 61 63 6b 3d 35 0d | 0d de 0a c9 20 26 41 30 |track=5.|.... &A0|
|00001b20| 30 0d 0d e8 18 62 79 74 | 65 73 5f 70 65 72 5f 73 |0....byt|es_per_s|
|00001b30| 65 63 74 6f 72 3d 32 35 | 36 0d 0d f2 18 73 65 63 |ector=25|6....sec|
|00001b40| 74 6f 72 73 5f 70 65 72 | 5f 74 72 61 63 6b 3d 31 |tors_per|_track=1|
|00001b50| 36 0d 0d fc 05 7f 0d 0e | 06 17 85 20 31 2c 22 42 |6.......|... 1,"B|
|00001b60| 61 64 20 64 69 73 63 20 | 73 69 7a 65 22 0d 0e 10 |ad disc |size"...|
|00001b70| 05 cb 0d 0e 1a 05 e1 0d | 0e 24 04 0d 0e 2e 1a dd |........|.$......|
|00001b80| f2 64 69 73 70 6c 61 79 | 28 73 74 61 72 74 2c 6c |.display|(start,l|
|00001b90| 69 6e 65 73 29 0d 0e 38 | 0d fb 20 30 3a fb 20 31 |ines)..8|.. 0:. 1|
|00001ba0| 33 35 0d 0e 42 1c 66 69 | 6e 69 73 68 3d 73 74 61 |35..B.fi|nish=sta|
|00001bb0| 72 74 2b 6c 69 6e 65 73 | 2a 26 31 30 2d 31 0d 0e |rt+lines|*&10-1..|
|00001bc0| 4c 31 e7 20 73 69 7a 65 | 3d 26 41 30 30 20 80 20 |L1. size|=&A00 . |
|00001bd0| 66 69 6e 69 73 68 3e 32 | 35 35 20 8c 20 73 74 61 |finish>2|55 . sta|
|00001be0| 72 74 3d 30 3a 66 69 6e | 69 73 68 3d 32 35 35 0d |rt=0:fin|ish=255.|
|00001bf0| 0e 56 21 e3 20 6d 65 6d | 6f 72 79 3d 73 74 61 72 |.V!. mem|ory=star|
|00001c00| 74 20 b8 20 66 69 6e 69 | 73 68 20 88 20 26 31 30 |t . fini|sh . &10|
|00001c10| 0d 0e 60 15 68 65 78 24 | 3d 22 22 3a 61 73 63 69 |..`.hex$|="":asci|
|00001c20| 69 24 3d 22 22 0d 0e 6a | 13 e3 20 6f 66 66 73 65 |i$=""..j|.. offse|
|00001c30| 74 3d 30 20 b8 20 31 35 | 0d 0e 74 23 68 24 3d c3 |t=0 . 15|..t#h$=.|
|00001c40| 7e 28 3f 28 6d 65 6d 6f | 72 79 25 2b 6d 65 6d 6f |~(?(memo|ry%+memo|
|00001c50| 72 79 2b 6f 66 66 73 65 | 74 29 29 0d 0e 7e 19 e7 |ry+offse|t))..~..|
|00001c60| 20 a9 28 68 24 29 3d 31 | 20 8c 20 68 24 3d 22 30 | .(h$)=1| . h$="0|
|00001c70| 22 2b 68 24 0d 0e 88 22 | 61 24 3d bd 28 3f 28 6d |"+h$..."|a$=.(?(m|
|00001c80| 65 6d 6f 72 79 25 2b 6d | 65 6d 6f 72 79 2b 6f 66 |emory%+m|emory+of|
|00001c90| 66 73 65 74 29 29 0d 0e | 92 21 e7 20 61 24 3c 22 |fset))..|.!. a$<"|
|00001ca0| 20 22 20 84 20 61 24 3d | bd 28 31 32 37 29 20 8c | " . a$=|.(127) .|
|00001cb0| 20 61 24 3d 22 2e 22 0d | 0e 9c 17 68 65 78 24 2b | a$=".".|...hex$+|
|00001cc0| 3d 68 24 3a 61 73 63 69 | 69 24 2b 3d 61 24 0d 0e |=h$:asci|i$+=a$..|
|00001cd0| a6 0c ed 20 6f 66 66 73 | 65 74 0d 0e b0 13 6d 65 |... offs|et....me|
|00001ce0| 6d 24 3d c3 7e 28 6d 65 | 6d 6f 72 79 29 0d 0e ba |m$=.~(me|mory)...|
|00001cf0| 11 c8 95 20 a9 28 6d 65 | 6d 24 29 3c 3e 33 0d 0e |... .(me|m$)<>3..|
|00001d00| c4 11 6d 65 6d 24 3d 22 | 30 22 2b 6d 65 6d 24 0d |..mem$="|0"+mem$.|
|00001d10| 0e ce 05 ce 0d 0e d8 37 | f1 22 20 20 20 22 3b 6d |.......7|."   ";m|
|00001d20| 65 6d 24 3b 22 20 20 20 | 20 20 20 20 22 3b 68 65 |em$;"   |    ";he|
|00001d30| 78 24 3b 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |x$;"    |        |
|00001d40| 20 20 22 3b 61 73 63 69 | 69 24 3b 0d 0e e2 2c e7 |  ";asci|i$;...,.|
|00001d50| 20 6d 65 6d 6f 72 79 3c | 66 69 6e 69 73 68 2d 31 | memory<|finish-1|
|00001d60| 36 20 8c 20 f1 20 8b 20 | 6d 65 6d 6f 72 79 3d 66 |6 . . . |memory=f|
|00001d70| 69 6e 69 73 68 2b 31 0d | 0e ec 0c ed 20 6d 65 6d |inish+1.|.... mem|
|00001d80| 6f 72 79 0d 0e f6 05 e1 | 0d ff                   |ory.....|..      |
+--------+-------------------------+-------------------------+--------+--------+